home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / misc / interfaces3_5.lha / Interfaces / MathResource.mod < prev    next >
Text File  |  1994-03-05  |  1KB  |  54 lines
  1. (*
  2. (*
  3. **  Amiga Oberon Interface Module:
  4. **  $VER: MathResource.mod 40.15 (28.12.93) Oberon 3.0
  5. **
  6. **   © 1993 by Fridtjof Siebert
  7. *)
  8. *)
  9.  
  10. MODULE MathResource;   (* $Implementation- *)
  11.  
  12. IMPORT e * := Exec;
  13.  
  14. TYPE
  15.  
  16. (*
  17. *       The 'Init' entries are only used if the corresponding
  18. *       bit is set in the Flags field.
  19. *
  20. *       So if you are just a 68881, you do not need the Init stuff
  21. *       just make sure you have cleared the Flags field.
  22. *
  23. *       This should allow us to add Extended Precision later.
  24. *
  25. *       For Init users, if you need to be called whenever a task
  26. *       opens this library for use, you need to change the appropriate
  27. *       entries in MathIEEELibrary.
  28. *)
  29.  
  30.   MathIEEEResourcePtr * = UNTRACED POINTER TO MathIEEEResource;
  31.   MathIEEEResource * = STRUCT (node * : e.Node)
  32.     flags * : SET;
  33.     baseAddr * : e.APTR; (* ptr to 881 if exists *)
  34.     dblBasInit * : e.PROC;
  35.     dblTransInit * : e.PROC;
  36.     sglBasInit * : e.PROC;
  37.     sglTransInit * : e.PROC;
  38.     extBasInit * : e.PROC;
  39.     extTransInit * : e.PROC;
  40.   END;
  41.  
  42. CONST
  43.  
  44. (* definations for MathIEEEResource_FLAGS *)
  45.   dblBas     * = 0;
  46.   dblTrans   * = 1;
  47.   sglBas     * = 2;
  48.   sglTrans   * = 3;
  49.   extBas     * = 4;
  50.   extTrans   * = 5;
  51.  
  52. END MathResource.
  53.  
  54.